SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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aaaa 
aaaa 
aa aa 
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aa aa 
aa aa 
aa aa 
aaqaaaaaaagaaaaaa 
aaaaaaaaaaaada 
nn NNW 
nn NANWNM 
mn own mn 
nn nn nw 
nn nw nw 
ye) nw nw 
nn nn mw 
mn nw nn 
ANNNM nn 
NANMM mn 
ww et 
wv vv 
wv wv 
ww vv 
wv vv 
wv Vvuv 
we vu 
wv vu 
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nn NMMWn 
an NAMWMM 
nn nw nn 
nn nn nn 
awn own nn 
nw nw nn 
nw nn “awn 
nn nn nn 
Mnn own 
ANWMnM nn 
— eugene 
“oo o=ngenp 
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FACILITY: Common Journaling Facility, Cluster Server Process 

ABSTRACT: Routine running in the CSP acting on behalf of CJF to 
resume the cluster failover sequence following the remastering 
of Recovery Unit Journals. 

AUTHOR: Paul R. Beck 

DATE: 9-SEP-1983 17:00 Last Edit: 9-SEP-1983 20:15:46 

MODIFIED BY: 

v03-001 ADE0001 Alan D. Eldridge 6-F eb-1984 


Minor cleanup. 


MENS ODONA MEUM = O ODA NEW 9 OD NAU EW OOWOVOU ES Wh 


OOoOoQOOOoOOSooOOOOSOOSOSOSOSOSOSOSOSOSOOOOOOOOOOOOOOOOOOOOO 
SOOooQoooooooooooooooooooooooocoSo 
SOOOOOOOOOOOSOSSSOSOOCCSOOOCSCOOOOOSOOOOOOOOOOOOOOOO 
Sete Ge Se Se Ge Se Se Ge Se Ge Ge He Ge Se Ge Ge Se Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ss Sse Sete te te 


SOoOOCOOCOOOoOOOOSOSoOOoOOoOSoOOoOOOoOoOSoOSoO 


PRESS LUNI ononononononononong | 3 2 


wef | 


cscun 


50 Q0000000'GF D0 
50 QOO0010C'EF 9E 


1¢C AO DE AF ODI 
03 12 

DB BF 16 

04 

00000008 


*PSECT 


; Symbol Definitions 


scLusoet 
IPLDEF 


CJFSCSP_CODE EXE ,WRT 


LL to that routine. 
D:: » LONG 
R $3 8 


CJFSRESUME _FAILOVER, “M<> 


"$rSEP=1986 88:08:40 


AX/VMS Becca v04-00 
SYSLOA.SRCICSPCJFRE 


Page 
JFRES.MAR; 1 : 3) 


; This code must run at elevated IPL, so it gets locked down. 


he fol touting two locations are filled in from CSPSCJFREMASTER by the 
OST RECENT CA 


lock page from here to SYNCH 
most recent failover ID 
address to call to resume 
failover sequence 


: Get the address of the cluster failover control block 


MOVL  G*CLUSGL CLUB. RO 
MOVAB CLUB$B_CCUFCB.R 


7 
e 
° 
. 


First get the cluster block 
~e whic 


Synchronize, then just quit if it's the wrong failover sequence. 
In that case, we expect to be called again with the correct one. 


SYNCH 
EALLOVER. 10, CLUF CBSL_ ICAO) 


Restart the failover sequence. 
That 
get control again. 

$B @RESUME _ADDRESS 
That's it. 

ETIPL #0 

ET 


.LONG IPL$_SYNCH 


synchronize with cluster code 
is this the correct failover? 
if NEQ, no: we're done. 


§ 

C 

B 

: The return will also be at 

3 PPLE SYNCH. after some unknown amount of failover code is executed. 
3 s, eventually, failover code will fork, at which point, we 
5 

§ 

R 


resume failover sequence 


3; back to normal IPL 


return to caller 


contains the failover blo 


"erSEE= 1982 Bkidg:ch FANSYOS Bacco YOG EO. aap. Page 3, 


ASSUME <SYNCH = LOCK> LT 512 


The working set Limit was 1200 pages. 

579 bytes (19 pages) of virtual memory were used to buffer the intermediate code. 

, were 10 pages of symbol table space allocated to hold 176 non-local ane 1 local symbols. 
107 source Lines were read in Pass 1, producing 16 object records in Pass 

1 pages of virtual memory were used to define 10 macros. 


ee ee 


Macro library name Macros defined 
ae $DUA SYSLOA. f2cLust R.MLB;1 
ein Rane Maret 
eysii6 3STARLET. Pale; 32 4 
TOTAre (all libraries) 7 


245 GETS were required to define 7 macros. 


Ll 3 
CSPCJFRES 16-SEP-1984 00:32:1 AX/VMS Macro Vv04-00 P 

Symbol table met $0: 38:28 SYSLOA.S Rede CSPCJFRES.MAR;1 ~— 3) 
CJFSRESUME FAILOVER 00000008 RG g 3 
CLUSGL_CLUB aeet ; 
CLUB$B_CLUF CB = 9¢ 3 
CLUFCBSL_ID = 3 
rere oyee ID RG 02 3 
IPL$_SYNCH = ; 
OCK a. 3 
tal ooes angie act $8 : 
SYNCH ~ Sb000e0 Ff i 
pose woman mean oom + : 
: Psect synopsis ! : 
ge we mew mee wn ene en} ; 
PSECT name Allocation PSECT No. Attributes 3 
> . agit bt ( 0.) 0(¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD wet NOVEC BYTE : 
SABSS 000000 ( 3 1 NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 3 
CJFSCSP_CODE 00000031 (¢ 49.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC BYTE : 
Peweweooeccecocccceccccce $ 
! Performance indicators H : 
Phase Page faults CPU Time Elapsed Time ; 
Initialization 3 0: 0:00.02 00:00: 3.05 ; 
Command processing 14 0:00:00.4 0:00:02.14 ; 
Pass 1 160 0:00: 4-48 0:00:06.40 3 
syabol table sort 0 0:00:00. 0:00:00.37 F 
8 0:00:00.31 B28: \+§3 3 
Suabot table output 0:00:00.01 :00:00.01 3 
Psect synopsis output 8: a : 0:00:00.0 3 
Cross-reference output :00:00. 4's 9-9 3 
Assembler run totals 381 0:00:02.4 0:00:12. : 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


There were no errors, warnings or information messages. 


mu 3 
VAKCL) his Macro Run Statistics "SrSeP =}382 82: 38: H SYSUOR. Se sae SSeS besF Res .maR:1 sre 3) 


MACRO/LIS=LIS$:CSPCJFRES/OBJ=OBJ$:CSPCJFRES MSRC$:CSPCJFRES/UPDATE=(ENHS: CSPCJFRES) +EXECMLS/LIB+L1B$:CLUSTER/LIB 
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